home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / tlxinstl.zip / WELCOME.ASM < prev   
Assembly Source File  |  1991-10-17  |  3KB  |  156 lines

  1.  
  2. PAGE    58,    132
  3. TITLE    WELCOME
  4. SUBTTL WELCOME
  5.  
  6. .model small
  7.  
  8. EXTRN    BORDER:FAR
  9. EXTRN    GETKEY:FAR
  10.  
  11. EXTRN text_color:byte
  12. EXTRN back_color:byte
  13. EXTRN hi_light_color:byte
  14. EXTRN Reverse_color:byte
  15. EXTRN COL:word
  16. EXTRN COL_HOLD:word
  17. EXTRN ROW:byte
  18. EXTRN boxtl:word
  19. EXTRN boxtr:word
  20. EXTRN boxbl:word
  21. EXTRN boxbr:word
  22. EXTRN colcnt:word
  23. EXTRN cursor_location:word
  24. EXTRN field_start:word
  25. EXTRN field_stop:word
  26. EXTRN inv_screen_attr:byte
  27. EXTRN linecnt:word
  28. EXTRN screen_attr:byte
  29. EXTRN ANYKEY:byte
  30. EXTRN logo1:byte
  31. EXTRN logo2:byte
  32. EXTRN fname:byte
  33. EXTRN source:byte
  34. EXTRN sourcename:byte
  35. EXTRN destname:byte
  36. EXTRN recommend:byte
  37. EXTRN return:byte
  38. EXTRN escape:byte
  39. EXTRN destination:byte
  40. EXTRN filopn:byte
  41. EXTRN stat_port:word
  42. EXTRN video_address:word
  43. EXTRN filename:word
  44.  
  45. IF1
  46. INCLUDE     ASSEMBLY.MAC
  47. ENDIF
  48.  
  49. PAGE
  50. WELCOMES       SEGMENT PUBLIC  'CODE'
  51.  
  52. SUBTTL WELCOME
  53. WELCOME PROC    FAR
  54.     ASSUME    CS:WELCOMES
  55.     PUBLIC    WELCOME
  56.  
  57.      MAKEBOX   3,14,8,64    ;startline,startcol,stopline,stopcol
  58.  
  59.     mov    ax,0100h        ;turn on curser
  60.     mov    bx,0
  61.     mov    cx,0b0ch
  62.     mov    dx,00
  63.     int    10h
  64.  
  65.      calc_addr 5,24
  66.      mov   si,offset logo1
  67.      mov   cx,20
  68.      w_f_scr
  69.  
  70.      calc_addr 6,24
  71.      mov   si,offset logo2
  72.      mov   cx,20
  73.      w_f_scr
  74.  
  75.      calc_addr 10,22
  76.      mov   si,offset recommend
  77.      mov   cx,38
  78.      w_f_scr
  79.  
  80.      calc_addr 12,30
  81.      mov   si,offset return
  82.      mov   cx,23
  83.      w_f_scr
  84.  
  85.      calc_addr 22,30
  86.      mov   si,offset escape
  87.      mov   cx,21
  88.      w_f_scr
  89.  
  90.      calc_addr 14,21
  91.      mov   si,offset source
  92.      mov   cx,14
  93.      w_f_scr
  94.  
  95.     mov    row,14
  96.     mov    col,30
  97.      mov   si,offset sourcename
  98.      mov   cx,34
  99.      w_i_scr                ;write inverted characters to screen
  100.  
  101.      calc_addr 16,16
  102.      mov   si,offset destination
  103.      mov   cx,19
  104.      w_f_scr
  105.  
  106.     mov    row,16
  107.     mov    col,30
  108.      mov   si,offset destname
  109.      mov   cx,34
  110.      w_i_scr                ;write inverted characters to screen
  111.  
  112.     mov    row,14
  113.     mov    col,35
  114. source_loop:
  115.     cursor
  116.     CALL    GETKEY
  117.     cmp    al,1bh
  118.     je    esc_key
  119.     cmp    al,0dh
  120.     je    got_source
  121.     mov    es:[di],al
  122.     inc    di
  123.     inc    di
  124.     jmp    short source_loop
  125. got_source:
  126.     mov    row,16
  127.     mov    col,35
  128. dest_loop:
  129.     cursor
  130.     CALL    GETKEY
  131.     cmp    al,1bh
  132.     je    esc_key
  133.     cmp    al,0dh
  134.     je    got_dest
  135.     mov    es:[di],al
  136.     inc    di
  137.     inc    di
  138.     jmp    short dest_loop
  139.  
  140. esc_key:
  141. got_dest:
  142.  
  143.     push    ax
  144.     mov    ax,0100h        ;turn off curser
  145.     mov    bx,0
  146.     mov    cx,0200h
  147.     mov    dx,00
  148.     int    10h
  149.     pop    ax
  150.  
  151.         RET
  152.  
  153. WELCOME        ENDP
  154. WELCOMES       ENDS
  155.         END    WELCOME
  156.